home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
rlib20.zip
/
RL_DECRY.PRG
< prev
next >
Wrap
Text File
|
1989-02-18
|
387b
|
19 lines
* Function: DECRYPTED
* Author..: Richard Low
* Syntax..: DECRYPTED()
* Returns.: Un-encrypted character string encrypted with ENCRYPTED(exp<C>)
*
FUNCTION DECRYPTED
PARAMETER p_string
PRIVATE f_temp, f_length, f_x
f_temp = ''
f_length = LEN(p_string)
FOR f_x = 1 TO f_length
f_temp = f_temp + CHR(ASC(SUBSTR(p_string,f_x,1))-101-f_x)
NEXT f_x
RETURN (f_temp)